#!/usr/bin/env tclsh


#输出到控制台
puts "hello,tcl!"


### 变量赋值 ,所有的都是字符串
set x 10  ;#定义x为10
set y x+10 ; #令 y = "x+10" => x+10
set z $x+10 ; #变量置换   => 10+10
set m [expr $x+10] ; #命令置换  => 20
set msg this\ is\ demo ; #转义置换
set n {$x + dd /n /r} ; #花括号内不做置换
puts "x=$x, y=$y, z=$z, m=$m, msg=$msg, n=$n"  ; #输出为 x=10,y=x+10 ,这一点要特别注意


puts --------------------------
set a  11
set a.1 12
set b $a.1
set c ${a.1}

puts "a=$a , a.1=${a.1}, b=$b, c=$c" 

#删除变量
unset a 

#字符串连接
set s1 hello
append s2 $s1 ",how ar you!"

puts "$s1"
puts "$s2"


 